home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / +look_here_1st!+ / handy_tools / diskmasterii / rexx / dmspopper.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-31  |  1KB  |  20 lines
  1. /*
  2. ** $VER: DMSpopper.rexx 1.0 (97-03-07) Rudolph Riedel
  3. **                                      RRiedel@Amiga.ON-Luebeck.de
  4. **
  5. ** Only a silly example of what could be done in ARexx...
  6. */
  7.  
  8. address DM
  9.  
  10. openwindow 0 12 150 50 CMD
  11.  
  12. Msg '"DMS File detected, choose option"'
  13.  
  14. AddCmd "DMS Write FM0:,30,StdIO ""CON:0/11/720/501/DMS 2.20r/CLOSE""; Extern execute s:fm0 \C:DMS <* WRITE %s TO FM0: NOPAUSE NOVERIFY; StdIO CLOSE;closewindow"
  15. AddCmd "DMS Write FM1:,30,StdIO ""CON:0/11/720/501/DMS 2.20r/CLOSE""; Extern execute s:fm1 \C:DMS <* WRITE %s TO FM1: NOPAUSE NOVERIFY; StdIO CLOSE;closewindow"
  16. AddCmd "DMS Write FM2:,30,StdIO ""CON:0/11/720/501/DMS 2.20r/CLOSE""; Extern execute s:fm2 \C:DMS <* WRITE %s TO FM2: NOPAUSE NOVERIFY; StdIO CLOSE;closewindow"
  17. AddCmd "DMS Write FM3:,30,StdIO ""CON:0/11/720/501/DMS 2.20r/CLOSE""; Extern execute s:fm3 \C:DMS <* WRITE %s TO FM3: NOPAUSE NOVERIFY; StdIO CLOSE;closewindow"
  18. AddCmd "DMS View,30,StdIO ""CON:0/11/720/501/DMS View Window/CLOSE"";Extern C:DMS <* View %s;Wait;StdIO CLOSE;closewindow"
  19. AddCmd "DMS Test,30,StdIO ""CON:0/11/720/250/DMS Test Window/CLOSE"";Extern C:DMS <* Test %s;Wait;StdIO CLOSE;closewindow"
  20.